home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0201.PRG < prev    next >
Text File  |  1988-06-18  |  768b  |  22 lines
  1. *************************************************************
  2. *     ML0201.CMD - ROUTINE TO SELECT FROM ALL RECORDS       *    9/24/84
  3. *************************************************************
  4. SET TALK OFF
  5. ERASE
  6. STORE     0 TO ZIPLO
  7. STORE 99999 TO ZIPHI
  8.  
  9. @  8,10 SAY '     Develop Selected Records from all Records'
  10. @ 14,10 SAY 'Input ZIP CODE Range   ' GET ZIPLO PICTURE '99999'
  11. @ 14,41 SAY '   TO  ' GET ZIPHI PICTURE '99999'
  12. READ
  13. CLEAR GETS
  14.  
  15. SELECT PRIMARY
  16. COPY TO MLSUB1 ALL FOR VAL(ZIP)>=ZIPLO .AND. VAL(ZIP)<=ZIPHI
  17. RELEASE ZIPHI,ZIPLO
  18. RETURN
  19. O .AND. VAL(ZIP)<=ZIPHI
  20. RELEASE ZIPHI,ZIPLO
  21. RETURN
  22.